home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / BOP01.LS < prev    next >
Text File  |  1998-10-02  |  379b  |  17 lines
  1. # --- L-System Parser/Mutator --- Lj Lapre ----------------------------------
  2. 5       # recursion depth
  3. 18      # angle
  4. 50      # thickness as % of length
  5. #
  6. +(90)>(210)A
  7. #
  8. A=c(12)p
  9. p=i++[p+o]--->>[--l]i[++l]--[po]+++po
  10. i=Fs[>>&&l][>>^^l]Fs
  11. s=sFs
  12. l=[c(8){++f--ff--f++|++f--ff--f}]
  13. o=[&!c(12)e>w>>>>w>>>>w>>>>w>>>>w]
  14. e=FF
  15. w=[c(3)^!F][c(5)&&&&{---f+++f|---f+++f}]
  16. @
  17.